home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PASCALL / TEMPJUNK / SMOSH.PAS < prev    next >
Pascal/Delphi Source File  |  1992-09-18  |  285b  |  20 lines

  1. program Ithinksmosh;
  2. var
  3.      t : integer;
  4.  
  5. procedure fern;
  6. begin
  7.      writeln ('fern is king!!! ',t,' times!!');
  8. end; {fern}
  9.  
  10. begin {main Ithinksmosh}
  11.      t := 0;
  12.      while t<>1000 do
  13.      begin
  14.           fern;
  15.           t := t+1;
  16.      end;
  17. end. {Ithinksmosh}
  18.  
  19.  
  20.